subroutine F77_readnext(mystep,co,x,y,z,skip0,n)
  implicit none
  real(4) :: co(*),x(*),y(*),z(*)
  logical :: skip0
  integer :: n,mystep
  interface
     integer function F_readnext(co,x,y,z,skip)
       implicit none
       real(4) :: co(:),x(:),y(:),z(:)
       logical, optional :: skip
     end function F_readnext
  end interface
  integer :: step,o
  real(4), ALLOCATABLE :: x0(:),y0(:),z0(:),co0(:)
  allocate(x0(n),y0(n),z0(n),co0(9))
  mystep=F_readnext(co0,x0,y0,z0,skip0)
  do o=1,n
     x(o)=x0(o)
     y(o)=y0(o)
     z(o)=z0(o)
  enddo
  do o=1,9
     co(o)=co0(o)
  enddo

end subroutine F77_readnext
